﻿Public Class frqltknganhang

    Dim dstk As New List(Of TaiKhoan)

    Private Sub HienThiDSTK(ByVal DS As List(Of TaiKhoan))
        Dim i As Integer
        For i = 0 To DS.Count - 1
            Dim dong As New ListViewItem()
            dong.Tag = DS(i)
            dong.Text = i + 1
            dong.SubItems.Add(DS(i).ID)
            dong.SubItems.Add(DS(i).TenTK)
            dong.SubItems.Add(DS(i).LaiSuat)
            dong.SubItems.Add(DS(i).SoDu)
            lsvqltknganhang.Items.Add(dong)
        Next
    End Sub

    Private Sub btnchuyentien_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnchuyentien.Click
        Dim f As New F19_Chuyen_Tien
        f.Label1.Text = "CHUYỂN TIỀN"
        f.btntt.Hide()
        f.ShowDialog()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As New frTimKiemThuChi
        f.ShowDialog()
    End Sub

    Private Sub btnthoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthoat.Click
        Me.Close()
    End Sub

    Private Sub frqltknganhang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dstk = XL_TaiKhoan.LayDS(Me.Tag)
        lsvqltknganhang.Items.Clear()
        HienThiDSTK(dstk)
    End Sub

    Private Sub btnthemtk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthemtk.Click
        If (tbxlaisuat.Text = "" Or txtthemtk.Text = "") Then
            MessageBox.Show("Vui lòng kiểm tra lại dữ liệu!", "Chú Ý!")
        Else
            If (XL_TaiKhoan.KTTenTK(txtthemtk.Text, Me.Tag) > 0) Then
                MessageBox.Show("Tài khoản này đã tồn tại!", "Chú Ý!")
            Else
                Dim p As New TaiKhoan()
                p.TenTK = txtthemtk.Text
                p.NguoiDung = Me.Tag
                p.SoDu = 0
                p.LaiSuat = Double.Parse(tbxlaisuat.Text)
                p.TrangThai = 1

                Dim kq As Boolean = XL_TaiKhoan.Them(p)
                If kq = True Then
                    dstk.Clear()
                    dstk = XL_TaiKhoan.LayDS(Me.Tag)
                    lsvqltknganhang.Items.Clear()
                    HienThiDSTK(dstk)

                Else
                    MessageBox.Show("Không thêm được tài khoản!")
                End If
            End If
        End If

    End Sub

    Private Sub lsvqltknganhang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lsvqltknganhang.SelectedIndexChanged
        If (lsvqltknganhang.SelectedItems.Count > 0) Then
            txtthemtk.Text = lsvqltknganhang.SelectedItems.Item(0).SubItems(2).Text
            tbxlaisuat.Text = lsvqltknganhang.SelectedItems.Item(0).SubItems(3).Text
            lbsodu.Text = lsvqltknganhang.SelectedItems.Item(0).SubItems(4).Text
        End If
    End Sub

    Private Sub btnsuatk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsuatk.Click
        If (lsvqltknganhang.SelectedItems.Count > 0) Then

                Dim ls As Double = Double.Parse(tbxlaisuat.Text)
                Dim ten As String = txtthemtk.Text
                Dim tk As Integer = lsvqltknganhang.SelectedItems.Item(0).SubItems(1).Text
            Dim kq As Boolean = XL_TaiKhoan.CapNhat1(ten, ls, tk)

                If kq = True Then
                    dstk.Clear()
                dstk = XL_TaiKhoan.LayDS(Me.Tag)
                    lsvqltknganhang.Items.Clear()
                    HienThiDSTK(dstk)
                Else
                MessageBox.Show("Cập nhật không thành công!")
                End If
        Else
            MessageBox.Show("Chưa chọn vị trí cần cập nhật!", "Chú ý!")
        End If
    End Sub

    Private Sub btnxoatk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnxoatk.Click
        If (lsvqltknganhang.SelectedItems.Count > 0) Then
            If MessageBox.Show("Bạn muốn xóa vị trí đã chọn?", "Chú ý!", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                Dim tk As Integer = lsvqltknganhang.SelectedItems(0).SubItems(1).Text
                Dim kq = XL_TaiKhoan.Xoa(tk)
                If (kq = True) Then
                    dstk.Clear()
                    dstk = XL_TaiKhoan.LayDS(Me.Tag)
                    lsvqltknganhang.Items.Clear()
                    HienThiDSTK(dstk)
                Else
                    MessageBox.Show("Không xóa được!")
                End If

            End If
        Else
            MessageBox.Show("Vui lòng chọn vị trí cần xóa!", "Chú ý!")
        End If
    End Sub
End Class